home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Start.dir / 00005.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  235 b   |  17 lines
  1. on exitFrame
  2.   if not soundBusy(1) then
  3.     puppetSound("password")
  4.   end if
  5.   if the timer > 600 then
  6.     puppetSound(0)
  7.     go(the frame + 1)
  8.   else
  9.     go(the frame)
  10.   end if
  11. end
  12.  
  13. on mouseUp
  14.   puppetSound(0)
  15.   go(the frame + 1)
  16. end
  17.